home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / T / TalkTools Script.cpt / TalkTools Script next >
Text File  |  1990-12-13  |  3KB  |  98 lines
  1.  
  2.  
  3. on idle -- Example script to speak the time -- uses TALK command from TalkTools
  4.   if the time <> card field "Time" then
  5.     put the time into card field "Time"
  6.     put the time into it
  7.     
  8.     -- say hour
  9.     
  10.     if char 3 of it is ":" then -- hour is 10, 11 or 12
  11.       if char 2 of it is "0" then -- hour is 10
  12.         put "ten" into talkTime
  13.       else if char 2 of it is "1" then -- hour is 11
  14.         put "eleven" into talkTime
  15.       else -- hour is twelve
  16.         put "twelve" into talkTime
  17.       end if
  18.       put 4 into minpos
  19.     else -- hour is 1-9
  20.       put char 1 of it into talkTime
  21.       put 3 into minpos
  22.     end if -- saying the hour
  23.     
  24.     put char minpos of the time into it
  25.     put char minpos+1 of the time after last char of it
  26.     put char minpos+3 of the time after last char of it
  27.     
  28.     put " " after last char of talkTime
  29.     
  30.     -- if mins 0-9
  31.     
  32.     if char 1 of it is "0" then
  33.       put "oh " after last char of talkTime
  34.       put char 2 of it after last char of talkTime
  35.       
  36.       -- if mins 10-19
  37.       
  38.     else if char 1 of it is "1" then
  39.       if char 2 of it is "0" then
  40.         put "ten" after last char of talkTime
  41.       else if char 2 of it is "1" then
  42.         put "eleven" after last char of talkTime
  43.       else if char 2 of it is "2" then
  44.         put "twelv" after last char of talkTime
  45.       else if char 2 of it is "3" then
  46.         put "thirteen" after last char of talkTime
  47.       else if char 2 of it is "4" then
  48.         put "4teen" after last char of talkTime
  49.       else if char 2 of it is "5" then
  50.         put "fifteen" after last char of talkTime
  51.       else if char 2 of it is "6" then
  52.         put "6teen" after last char of talkTime
  53.       else if char 2 of it is "7" then
  54.         put "7teen" after last char of talkTime
  55.       else if char 2 of it is "8" then
  56.         put "ayteen" after last char of talkTime
  57.       else
  58.         put "9teen" after last char of talkTime
  59.       end if
  60.       
  61.     else if char 1 of it is "2" then
  62.       put "twenty " after last char of talkTime
  63.       put nz(char 2 of it) after last char of talkTime
  64.     else if char 1 of it is "3" then
  65.       put "thirty " after last char of talkTime
  66.       put nz(char 2 of it) after last char of talkTime
  67.     else if char 1 of it is "4" then
  68.       put "forty " after last char of talkTime
  69.       put nz(char 2 of it) after last char of talkTime
  70.     else
  71.       put "fifty " after last char of talkTime
  72.       put nz(char 2 of it) after last char of talkTime
  73.     end if
  74.     put " " after last char of talkTime
  75.     if char 3 of it is "p" then
  76.       put "pee" after last char of talkTime
  77.     else
  78.       put "ay" after last char of talkTime
  79.     end if
  80.     
  81.     put " m" after last char of talkTime
  82.     talk talkTime,150,70
  83.   end if -- time changed
  84.   
  85.   pass idle
  86. end idle
  87. function nz digit
  88.   if digit is "0" then
  89.     return " "
  90.   else
  91.     return digit
  92.   end if
  93.   
  94. end nz
  97.  
  98. Download complete.